home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / sidis100.zip / SCRIPT / SIDISW3.CMD < prev    next >
OS/2 REXX Batch file  |  1996-05-04  |  1KB  |  59 lines
  1. # Login script for Trumpet WinSock
  2. # for use with SIDIS/2
  3. # 06/21/95, Axel Mueller (amueller@stargate.rz.fh-offenburg.de)
  4.  
  5. # Ask for phone number
  6. query $number "Enter phone number"]
  7. if ![load $username]
  8.   if [username "Enter username"]
  9.     save $username
  10.   end
  11. end
  12. if ![load $password]
  13.   if [password "Enter passwort"]
  14.     save $password
  15.   end
  16. end
  17.  
  18. # Define prompts to wait for
  19. $userprompt = "Login:"
  20. $passprompt = "sword:"
  21. $endprompt = "$%"
  22.  
  23. # Initialize modem
  24. %attempts = 10
  25. output "atz"\13
  26. if ! [input 10 OK\n]
  27.   display "Modem initialization error!"\n
  28.   abort
  29. end
  30.  
  31. # Dial
  32. %n = 0
  33. repeat
  34.   if %n = %attempts
  35.     display "Too many attempts"\n
  36.     abort
  37.   end
  38.   output "atdt"$number\13
  39.   %ok = [input 60 CONNECT]
  40.   %n = %n + 1
  41. until %ok
  42. input 10 \n
  43.  
  44. # Wait for modem
  45. wait 30 dcd
  46.  
  47. # Wait for username prompt
  48. input 30 $userprompt
  49. output $username\13
  50.  
  51. # Wait for password prompt
  52. input 30 $passprompt
  53. output $password\13
  54.  
  55. # Wait for finish of welcome screen
  56. input 10 $endprompt
  57.  
  58. # wait 1 second for the server to initialize PPP handshake
  59. wait 1